home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 08 System Utilities / NULOAD.SDA / CHNHDR (.txt) next >
Commodore BASIC  |  2019-04-13  |  2KB  |  62 lines
  1. 10 POKE55,.:POKE56,160
  2. 15 CLR:Z=4205:Q$=CHR$(34):A$(.)="":DIMD,A,B$,C,Y,G$,N,I,F$:SYS58648:PRINT
  3. 18 X=49152:C(.)=6:C(1)=13:C(2)=10:C(3)=1:A(.)=53281:A(1)=646:A(2)=53280
  4. 20 A(3)=1023:POKEA(.),6:POKEA(2),10:PRINT"ENTER DISK DRIVE DEVICE NUMBER."
  5. 25 PRINT"(ENTER 0 TO EXIT.)"
  6. 30 PRINT:PRINT"  8[145]":INPUTD:IFD=.THEN800
  7. 35 IFD<4ORD>30THENPRINT"[147]ILLEGAL DEVICE NUMBER":GOTO20
  8. 40 POKE2,36:POKE184,8:POKE185,.:POKE186,D
  9. 45 POKE183,1:POKE187,2:POKE188,.:SYS65472
  10. 50 CLOSE8:IFPEEK(783)AND1THENPRINT"[147]?DEVICE";D;"[157] NOT PRESENT":GOTO20
  11. 55 OPEN15,D,15:PRINT"[147]";
  12. 60 PRINT"ENTER FILENAME OF HEADER FILE."
  13. 65 PRINT"PRESS RETURN IF FILENAME IS ";Q$;"HEADER";Q$;"."
  14. 70 F$="HEADER":INPUTF$:OPEN8,D,8,F$:GOSUB900
  15. 75 IFATHENCLOSE8:CLOSE15:PRINT:GOTO20
  16. 80 PRINT"ONE MOMENT PLEASE...":SYSZ:GOSUB1000
  17. 85 POKEA(.),C(1):PRINT"[147][197][206][212][197][210] [212][197][216][212] [198][207][210] [205][207][214][201][206][199] [205][197][211][211][193][199][197] ([205][193][216][201][205][213][205]"
  18. 90 PRINT"[207][198] 79 [195][200][193][210][193][195][212][197][210][211]).  [208][210][197][211][211] [198]1 [215][200][197][206] [196][207][206][197].":POKEA(.),C(.)
  19. 95 PRINT"****************************************";
  20. 100 SYSZ+44
  21. 105 PRINT"[147][197][206][212][197][210] [211][212][193][212][201][207][206][193][210][217] [195][200][193][210][193][195][212][197][210][211] [201][206][212][207]"
  22. 110 PRINT"[211][208][193][195][197] [194][197][204][207][215], [193][206][196] [208][210][197][211][211] [198]1 [215][200][197][206] [196][207][206][197]."
  23. 115 PRINT"****************************************"
  24. 120 PRINT"****************************************[145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]";
  25. 125 SYSZ+153:PRINT"[147]";
  26. 130 PRINT"[197][206][212][197][210] [198][201][204][197][206][193][205][197] [207][198] [206][197][215] [200][197][193][196][197][210] [198][201][204][197]."
  27. 135 PRINT"([208][210][197][211][211] [210][197][212][213][210][206] [212][207] [193][194][207][210][212].)"
  28. 140 INPUTG$:IFG$=""THEN800
  29. 145 OPEN8,D,1,G$:GOSUB900
  30. 150 IFATHENCLOSE8:GOTO130
  31. 155 PRINT"[207][206][197] [205][207][205][197][206][212] [208][204][197][193][211][197]...":SYSZ+225
  32. 160 CLOSE15:GOTO15
  33. 800 CLOSE8:CLOSE15:PRINT"[142]":END
  34. 900 INPUT#15,A,B$,C,Y
  35. 910 IFA<20THENA=.:RETURN
  36. 920 PRINT:PRINTA:PRINT:PRINTB$:PRINT:PRINTC,Y:RETURN
  37. 1000 POKE646,C(3):PRINT"[147].............SCROLLING TEXT.............";
  38. 1003 POKE646,C(1):PRINT"SELECT, USING CURSOR UP/DOWN."
  39. 1005 PRINT"STEP THROUGH COLORS,":PRINT"USING CURSOR RIGHT/LEFT."
  40. 1012 PRINT"PRESS RETURN WHEN DONE."
  41. 1015 PRINTA$(.);"BACKGROUND COLOR:[146]";TAB(17);C(.)
  42. 1020 PRINT"";A$(1);"FOREGROUND COLOR:[146]";TAB(17);C(1)
  43. 1025 PRINT"";A$(2);"BORDER COLOR:[146]";TAB(17);C(2)
  44. 1027 PRINT"";A$(3);"SCROLL COLOR:[146]";TAB(17);C(3);"[145][145][145][145][145][145][145]"
  45. 1030 GETA$:IFA$="[145]"THENN=N-1:GOTO1055
  46. 1035 IFA$=""THENN=N+1:GOTO1055
  47. 1040 IFA$=""THENI=(PEEK(A(N))AND15)+1:GOTO1090
  48. 1045 IFA$="[157]"THENI=(PEEK(A(N))AND15)-1:GOTO1090
  49. 1047 IFA$=CHR$(13)THEN1105
  50. 1050 GOTO1030
  51. 1055 IFN=4THENN=.
  52. 1060 IFN=-1THENN=3
  53. 1065 A$(.)="":A$(1)="":A$(2)="":A$(3)="":A$(N)=""
  54. 1070 PRINTA$(.);"BACKGROUND COLOR:":PRINTA$(1);"FOREGROUND COLOR:"
  55. 1075 PRINTA$(2);"BORDER COLOR:"
  56. 1080 PRINTA$(3);"SCROLL COLOR:[145][145][145][145][145][145][145]"
  57. 1085 GOTO1030
  58. 1090 IFI=16THENI=.
  59. 1095 IFI=-1THENI=15
  60. 1100 POKEA(N),I:C(N)=I:GOTO1000
  61. 1105 POKEX+16,C(.):POKEX+39,C(1):POKE2,C(1):POKEX+6,C(2):POKEX+227,C(3):RETURN
  62.